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GGGGGGGG BBBBBBBB LL SSSSSSSS EEEEEEEEEE cccecccc = UU FFFFFFFFFF 000000 
GGGGGGGG 8BBBBBBB LL SSSSSSSS EEEEEEEEEE cecccece = UU FCFFFFFFFF 000000 
GG BB BB LL $$ EE cc UU UU FF 00 00 
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eTITL LSECUF Global Section UFO (User Fille Open) 
IDENT rr tet ns 


—MPARRARARAARARAAAAALAALALAALAALALELALALAL LLL E EERE EES EEE SERRE SEE ESE EERE SERS S SEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL Chae ae CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT of PROVIDED OR OTHERWISE MADE AVAILABLE TC ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARASASLASLALALALASALALEL ALAA ELE SELES ERE SEER REE ERR SE REE RRR E SSE R EASE AS 


:This routine opens a file to be used as a global section 
;An RMS OPEN is performed with the file options (FOP) of 
:User File Open (UFO). The cael ine routine specifies the 
:file name and number of blocks; this routine returns the 
schannel number on which the file was openned. 

:1f the specified file does not exist, the file is created 


:The calling sequence is 
Call GBL_SECTION_UFO( blkcnt,file-name,chan ) 


; Where 

: blkcnt => Number of blocks in the file 
file-name => filename descriptor block 
chan => channel openned 

;Example: 


Integer*4 CHANNEL 


Call GBL_SECTION_UFO(10,"LABIO_DATA.DAT’, CHANNEL ) 


a 


LAI 


USI 
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-SBTTL GBL_SEC_UFO 
; RMS FAB for a SCREATE 


GBLFAB: SFAB - FAC= 
bosecutd, CIF, CBT> 


MOVL  4(R1S,GBLFAB+FABSC_FNA And file name 
MOVL @4(AP) ,GBLFAB+FABSL_ALQ ;Number of blocks to allocate 
SCREATE FAB=GBLFAB ;Open data file, Create it if 
zif it does not exist 
MOVL GBLF AB+F ABSL _STV,a@12(AP);: Store channel number 
EXIT: RET ;Return with error code in R) 
~END 
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NUM_ARG = 3 Number of arguments 

«ENTRY GBL_SECTION_UFO,0 

MOVL #SS$_INSFARG,RO ;Assume bad arg count 

CMPB (AP) 7#NUM_ARG Check arg count 

BLSS EXIT iToo few 

MOVL BLA Get file name address string descriptor 
MOVB cL) EBL FAB+F ABSB FNS Store string Length in FAB 
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